(in-package #:clasp-tests)

(test-true TEST-STRING-COMPARISONL-0
      (EQUALP NIL (APPLY 'STRING< '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-1
      (EQUALP 0 (APPLY 'STRING< '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-2
      (EQUALP NIL (APPLY 'STRING< '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-3
                   (APPLY 'STRING< '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-4
                   (APPLY 'STRING< '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-5
                   (APPLY 'STRING< '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-6
      (EQUALP NIL (APPLY 'STRING< '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-7
      (EQUALP NIL (APPLY 'STRING< '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-8
      (EQUALP 0 (APPLY 'STRING< '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-9
      (EQUALP 7 (APPLY 'STRING< '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-10
                   (APPLY 'STRING< '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-11
                   (APPLY 'STRING< '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-12
                   (APPLY 'STRING< '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-13
                   (APPLY 'STRING< '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-14 (EQUALP 0 (APPLY 'STRING< '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-15
      (EQUALP 0 (APPLY 'STRING< '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-16
                   (APPLY 'STRING< '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-17
                   (APPLY 'STRING< '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-18
                   (APPLY 'STRING< '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-19
                   (APPLY 'STRING< '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-20
                   (APPLY 'STRING< '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-21 (EQUALP 0 (APPLY 'STRING< '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-22
      (EQUALP 0 (APPLY 'STRING< '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-23
                   (APPLY 'STRING< '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-24
                   (APPLY 'STRING< '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-25
                   (APPLY 'STRING< '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-26
                   (APPLY 'STRING< '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-27
                   (APPLY 'STRING< '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-28 (EQUALP NIL (APPLY 'STRING< '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-29
                   (APPLY 'STRING< '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-30
                   (APPLY 'STRING< '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-31
                   (APPLY 'STRING< '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-32
                   (APPLY 'STRING< '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-33
                   (APPLY 'STRING< '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-34
                   (APPLY 'STRING< '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-35 (EQUALP NIL (APPLY 'STRING< '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-36
                   (APPLY 'STRING< '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-37
                   (APPLY 'STRING< '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-38
                   (APPLY 'STRING< '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-39
                   (APPLY 'STRING< '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-40
                   (APPLY 'STRING< '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-41
                   (APPLY 'STRING< '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-42 (EQUALP 0 (APPLY 'STRING< '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-43
      (EQUALP 0 (APPLY 'STRING< '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-44
                   (APPLY 'STRING< '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-45
                   (APPLY 'STRING< '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-46
                   (APPLY 'STRING< '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-47
                   (APPLY 'STRING< '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-48
                   (APPLY 'STRING< '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-49 (EQUALP NIL (APPLY 'STRING< '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-50
      (EQUALP NIL (APPLY 'STRING< '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-51
                   (APPLY 'STRING< '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-52
                   (APPLY 'STRING< '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-53
                   (APPLY 'STRING< '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-54
                   (APPLY 'STRING< '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-55
                   (APPLY 'STRING< '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-56
      (EQUALP NIL (APPLY 'STRING> '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-57
      (EQUALP NIL (APPLY 'STRING> '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-58
      (EQUALP 6 (APPLY 'STRING> '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-59
                   (APPLY 'STRING> '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-60
                   (APPLY 'STRING> '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-61
                   (APPLY 'STRING> '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-62
      (EQUALP 0 (APPLY 'STRING> '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-63
      (EQUALP 5 (APPLY 'STRING> '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-64
      (EQUALP NIL (APPLY 'STRING> '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-65
      (EQUALP NIL (APPLY 'STRING> '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-66
                   (APPLY 'STRING> '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-67
                   (APPLY 'STRING> '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-68
                   (APPLY 'STRING> '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-69
                   (APPLY 'STRING> '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-70
      (EQUALP NIL (APPLY 'STRING> '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-71
      (EQUALP NIL (APPLY 'STRING> '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-72
                   (APPLY 'STRING> '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-73
                   (APPLY 'STRING> '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-74
                   (APPLY 'STRING> '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-75
                   (APPLY 'STRING> '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-76
                   (APPLY 'STRING> '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-77 (EQUALP NIL (APPLY 'STRING> '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-78
      (EQUALP NIL (APPLY 'STRING> '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-79
                   (APPLY 'STRING> '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-80
                   (APPLY 'STRING> '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-81
                   (APPLY 'STRING> '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-82
                   (APPLY 'STRING> '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-83
                   (APPLY 'STRING> '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-84 (EQUALP 0 (APPLY 'STRING> '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-85
                   (APPLY 'STRING> '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-86
                   (APPLY 'STRING> '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-87
                   (APPLY 'STRING> '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-88
                   (APPLY 'STRING> '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-89
                   (APPLY 'STRING> '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-90
                   (APPLY 'STRING> '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-91 (EQUALP NIL (APPLY 'STRING> '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-92
                   (APPLY 'STRING> '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-93
                   (APPLY 'STRING> '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-94
                   (APPLY 'STRING> '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-95
                   (APPLY 'STRING> '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-96
                   (APPLY 'STRING> '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-97
                   (APPLY 'STRING> '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-98 (EQUALP NIL (APPLY 'STRING> '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-99
      (EQUALP NIL (APPLY 'STRING> '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-100
                   (APPLY 'STRING> '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-101
                   (APPLY 'STRING> '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-102
                   (APPLY 'STRING> '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-103
                   (APPLY 'STRING> '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-104
                   (APPLY 'STRING> '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-105 (EQUALP 0 (APPLY 'STRING> '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-106
      (EQUALP 0 (APPLY 'STRING> '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-107
                   (APPLY 'STRING> '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-108
                   (APPLY 'STRING> '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-109
                   (APPLY 'STRING> '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-110
                   (APPLY 'STRING> '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-111
                   (APPLY 'STRING> '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-112
      (EQUALP 10 (APPLY 'STRING<= '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-113
      (EQUALP 0 (APPLY 'STRING<= '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-114
      (EQUALP NIL (APPLY 'STRING<= '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-115
                   (APPLY 'STRING<= '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-116
                   (APPLY 'STRING<= '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-117
                   (APPLY 'STRING<= '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-118
      (EQUALP NIL (APPLY 'STRING<= '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-119
      (EQUALP NIL (APPLY 'STRING<= '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-120
      (EQUALP 0 (APPLY 'STRING<= '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-121
      (EQUALP 7 (APPLY 'STRING<= '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-122
                   (APPLY 'STRING<= '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-123
                   (APPLY 'STRING<= '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-124
                   (APPLY 'STRING<= '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-125
                   (APPLY 'STRING<= '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-126
      (EQUALP 0 (APPLY 'STRING<= '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-127
      (EQUALP 0 (APPLY 'STRING<= '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-128
                   (APPLY 'STRING<= '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-129
                   (APPLY 'STRING<= '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-130
                   (APPLY 'STRING<= '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-131
                   (APPLY 'STRING<= '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-132
                   (APPLY 'STRING<= '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-133 (EQUALP 0 (APPLY 'STRING<= '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-134
      (EQUALP 0 (APPLY 'STRING<= '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-135
                   (APPLY 'STRING<= '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-136
                   (APPLY 'STRING<= '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-137
                   (APPLY 'STRING<= '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-138
                   (APPLY 'STRING<= '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-139
                   (APPLY 'STRING<= '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-140 (EQUALP NIL (APPLY 'STRING<= '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-141
                   (APPLY 'STRING<= '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-142
                   (APPLY 'STRING<= '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-143
                   (APPLY 'STRING<= '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-144
                   (APPLY 'STRING<= '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-145
                   (APPLY 'STRING<= '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-146
                   (APPLY 'STRING<= '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-147 (EQUALP 0 (APPLY 'STRING<= '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-148
                   (APPLY 'STRING<= '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-149
                   (APPLY 'STRING<= '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-150
                   (APPLY 'STRING<= '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-151
                   (APPLY 'STRING<= '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-152
                   (APPLY 'STRING<= '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-153
                   (APPLY 'STRING<= '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-154 (EQUALP 0 (APPLY 'STRING<= '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-155
      (EQUALP 0 (APPLY 'STRING<= '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-156
                   (APPLY 'STRING<= '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-157
                   (APPLY 'STRING<= '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-158
                   (APPLY 'STRING<= '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-159
                   (APPLY 'STRING<= '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-160
                   (APPLY 'STRING<= '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-161
      (EQUALP NIL (APPLY 'STRING<= '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-162
      (EQUALP NIL (APPLY 'STRING<= '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-163
                   (APPLY 'STRING<= '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-164
                   (APPLY 'STRING<= '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-165
                   (APPLY 'STRING<= '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-166
                   (APPLY 'STRING<= '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-167
                   (APPLY 'STRING<= '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-168
      (EQUALP 10 (APPLY 'STRING>= '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-169
      (EQUALP NIL (APPLY 'STRING>= '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-170
      (EQUALP 6 (APPLY 'STRING>= '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-171
                   (APPLY 'STRING>= '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-172
                   (APPLY 'STRING>= '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-173
                   (APPLY 'STRING>= '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-174
      (EQUALP 0 (APPLY 'STRING>= '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-175
      (EQUALP 5 (APPLY 'STRING>= '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-176
      (EQUALP NIL (APPLY 'STRING>= '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-177
      (EQUALP NIL (APPLY 'STRING>= '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-178
                   (APPLY 'STRING>= '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-179
                   (APPLY 'STRING>= '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-180
                   (APPLY 'STRING>= '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-181
                   (APPLY 'STRING>= '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-182
      (EQUALP NIL (APPLY 'STRING>= '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-183
      (EQUALP NIL (APPLY 'STRING>= '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-184
                   (APPLY 'STRING>= '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-185
                   (APPLY 'STRING>= '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-186
                   (APPLY 'STRING>= '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-187
                   (APPLY 'STRING>= '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-188
                   (APPLY 'STRING>= '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-189 (EQUALP NIL (APPLY 'STRING>= '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-190
      (EQUALP NIL (APPLY 'STRING>= '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-191
                   (APPLY 'STRING>= '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-192
                   (APPLY 'STRING>= '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-193
                   (APPLY 'STRING>= '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-194
                   (APPLY 'STRING>= '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-195
                   (APPLY 'STRING>= '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-196 (EQUALP 0 (APPLY 'STRING>= '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-197
                   (APPLY 'STRING>= '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-198
                   (APPLY 'STRING>= '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-199
                   (APPLY 'STRING>= '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-200
                   (APPLY 'STRING>= '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-201
                   (APPLY 'STRING>= '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-202
                   (APPLY 'STRING>= '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-203 (EQUALP 0 (APPLY 'STRING>= '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-204
                   (APPLY 'STRING>= '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-205
                   (APPLY 'STRING>= '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-206
                   (APPLY 'STRING>= '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-207
                   (APPLY 'STRING>= '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-208
                   (APPLY 'STRING>= '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-209
                   (APPLY 'STRING>= '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-210
      (EQUALP NIL (APPLY 'STRING>= '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-211
      (EQUALP NIL (APPLY 'STRING>= '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-212
                   (APPLY 'STRING>= '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-213
                   (APPLY 'STRING>= '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-214
                   (APPLY 'STRING>= '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-215
                   (APPLY 'STRING>= '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-216
                   (APPLY 'STRING>= '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-217 (EQUALP 0 (APPLY 'STRING>= '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-218
      (EQUALP 0 (APPLY 'STRING>= '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-219
                   (APPLY 'STRING>= '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-220
                   (APPLY 'STRING>= '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-221
                   (APPLY 'STRING>= '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-222
                   (APPLY 'STRING>= '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-223
                   (APPLY 'STRING>= '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-224
      (EQUALP NIL (APPLY 'STRING-LESSP '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-225
      (EQUALP 0 (APPLY 'STRING-LESSP '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-226
      (EQUALP NIL (APPLY 'STRING-LESSP '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-227
                   (APPLY 'STRING-LESSP
                          '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-228
                   (APPLY 'STRING-LESSP
                          '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-229
                   (APPLY 'STRING-LESSP
                          '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-230
      (EQUALP NIL
              (APPLY 'STRING-LESSP '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-231
      (EQUALP NIL (APPLY 'STRING-LESSP '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-232
      (EQUALP 0 (APPLY 'STRING-LESSP '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-233
      (EQUALP 7 (APPLY 'STRING-LESSP '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-234
                   (APPLY 'STRING-LESSP '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-235
                   (APPLY 'STRING-LESSP '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-236
                   (APPLY 'STRING-LESSP '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-237
                   (APPLY 'STRING-LESSP '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-238
      (EQUALP 0 (APPLY 'STRING-LESSP '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-239
      (EQUALP 0 (APPLY 'STRING-LESSP '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-240
                   (APPLY 'STRING-LESSP '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-241
                   (APPLY 'STRING-LESSP '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-242
                   (APPLY 'STRING-LESSP '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-243
                   (APPLY 'STRING-LESSP '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-244
                   (APPLY 'STRING-LESSP '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-245
      (EQUALP 0 (APPLY 'STRING-LESSP '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-246
      (EQUALP 0 (APPLY 'STRING-LESSP '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-247
                   (APPLY 'STRING-LESSP '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-248
                   (APPLY 'STRING-LESSP '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-249
                   (APPLY 'STRING-LESSP '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-250
                   (APPLY 'STRING-LESSP '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-251
                   (APPLY 'STRING-LESSP '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-252
      (EQUALP NIL (APPLY 'STRING-LESSP '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-253
                   (APPLY 'STRING-LESSP '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-254
                   (APPLY 'STRING-LESSP '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-255
                   (APPLY 'STRING-LESSP '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-256
                   (APPLY 'STRING-LESSP '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-257
                   (APPLY 'STRING-LESSP '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-258
                   (APPLY 'STRING-LESSP '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-259 (EQUALP NIL (APPLY 'STRING-LESSP '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-260
                   (APPLY 'STRING-LESSP '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-261
                   (APPLY 'STRING-LESSP '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-262
                   (APPLY 'STRING-LESSP '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-263
                   (APPLY 'STRING-LESSP '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-264
                   (APPLY 'STRING-LESSP '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-265
                   (APPLY 'STRING-LESSP '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-266
      (EQUALP 3 (APPLY 'STRING-LESSP '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-267
      (EQUALP 0 (APPLY 'STRING-LESSP '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-268
                   (APPLY 'STRING-LESSP '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-269
                   (APPLY 'STRING-LESSP '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-270
                   (APPLY 'STRING-LESSP '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-271
                   (APPLY 'STRING-LESSP '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-272
                   (APPLY 'STRING-LESSP '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-273
      (EQUALP NIL (APPLY 'STRING-LESSP '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-274
      (EQUALP 0 (APPLY 'STRING-LESSP '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-275
                   (APPLY 'STRING-LESSP '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-276
                   (APPLY 'STRING-LESSP '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-277
                   (APPLY 'STRING-LESSP '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-278
                   (APPLY 'STRING-LESSP '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-279
                   (APPLY 'STRING-LESSP '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-280
      (EQUALP NIL (APPLY 'STRING-GREATERP '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-281
      (EQUALP NIL
              (APPLY 'STRING-GREATERP '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-282
      (EQUALP 6
              (APPLY 'STRING-GREATERP '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-283
                   (APPLY 'STRING-GREATERP
                          '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-284
                   (APPLY 'STRING-GREATERP
                          '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-285
                   (APPLY 'STRING-GREATERP
                          '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-286
      (EQUALP 0
              (APPLY 'STRING-GREATERP '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-287
      (EQUALP 5 (APPLY 'STRING-GREATERP '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-288
      (EQUALP NIL (APPLY 'STRING-GREATERP '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-289
      (EQUALP NIL (APPLY 'STRING-GREATERP '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-290
                   (APPLY 'STRING-GREATERP '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-291
                   (APPLY 'STRING-GREATERP '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-292
                   (APPLY 'STRING-GREATERP '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-293
                   (APPLY 'STRING-GREATERP '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-294
      (EQUALP NIL (APPLY 'STRING-GREATERP '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-295
      (EQUALP NIL (APPLY 'STRING-GREATERP '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-296
                   (APPLY 'STRING-GREATERP '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-297
                   (APPLY 'STRING-GREATERP '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-298
                   (APPLY 'STRING-GREATERP '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-299
                   (APPLY 'STRING-GREATERP '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-300
                   (APPLY 'STRING-GREATERP '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-301
      (EQUALP NIL (APPLY 'STRING-GREATERP '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-302
      (EQUALP NIL (APPLY 'STRING-GREATERP '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-303
                   (APPLY 'STRING-GREATERP '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-304
                   (APPLY 'STRING-GREATERP '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-305
                   (APPLY 'STRING-GREATERP '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-306
                   (APPLY 'STRING-GREATERP '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-307
                   (APPLY 'STRING-GREATERP '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-308
      (EQUALP 0 (APPLY 'STRING-GREATERP '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-309
                   (APPLY 'STRING-GREATERP '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-310
                   (APPLY 'STRING-GREATERP '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-311
                   (APPLY 'STRING-GREATERP '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-312
                   (APPLY 'STRING-GREATERP '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-313
                   (APPLY 'STRING-GREATERP '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-314
                   (APPLY 'STRING-GREATERP '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-315
      (EQUALP NIL (APPLY 'STRING-GREATERP '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-316
                   (APPLY 'STRING-GREATERP '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-317
                   (APPLY 'STRING-GREATERP '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-318
                   (APPLY 'STRING-GREATERP '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-319
                   (APPLY 'STRING-GREATERP '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-320
                   (APPLY 'STRING-GREATERP '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-321
                   (APPLY 'STRING-GREATERP '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-322
      (EQUALP NIL (APPLY 'STRING-GREATERP '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-323
      (EQUALP NIL (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-324
                   (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-325
                   (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-326
                   (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-327
                   (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-328
                   (APPLY 'STRING-GREATERP '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-329
      (EQUALP 3 (APPLY 'STRING-GREATERP '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-330
      (EQUALP NIL (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-331
                   (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-332
                   (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-333
                   (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-334
                   (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-335
                   (APPLY 'STRING-GREATERP '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-336
      (EQUALP 10 (APPLY 'STRING-NOT-LESSP '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-337
      (EQUALP NIL
              (APPLY 'STRING-NOT-LESSP '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-338
      (EQUALP 6
              (APPLY 'STRING-NOT-LESSP '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-339
                   (APPLY 'STRING-NOT-LESSP
                          '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-340
                   (APPLY 'STRING-NOT-LESSP
                          '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-341
                   (APPLY 'STRING-NOT-LESSP
                          '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-342
      (EQUALP 0
              (APPLY 'STRING-NOT-LESSP
                     '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-343
      (EQUALP 5 (APPLY 'STRING-NOT-LESSP '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-344
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-345
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-346
                   (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-347
                   (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-348
                   (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-349
                   (APPLY 'STRING-NOT-LESSP '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-350
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-351
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-352
                   (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-353
                   (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-354
                   (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-355
                   (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-356
                   (APPLY 'STRING-NOT-LESSP '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-357
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-358
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-359
                   (APPLY 'STRING-NOT-LESSP '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-360
                   (APPLY 'STRING-NOT-LESSP '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-361
                   (APPLY 'STRING-NOT-LESSP '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-362
                   (APPLY 'STRING-NOT-LESSP '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-363
                   (APPLY 'STRING-NOT-LESSP '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-364
      (EQUALP 0 (APPLY 'STRING-NOT-LESSP '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-365
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-366
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-367
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-368
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-369
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-370
                   (APPLY 'STRING-NOT-LESSP '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-371 (EQUALP 0 (APPLY 'STRING-NOT-LESSP '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-372
                   (APPLY 'STRING-NOT-LESSP '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-373
                   (APPLY 'STRING-NOT-LESSP '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-374
                   (APPLY 'STRING-NOT-LESSP '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-375
                   (APPLY 'STRING-NOT-LESSP '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-376
                   (APPLY 'STRING-NOT-LESSP '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-377
                   (APPLY 'STRING-NOT-LESSP '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-378
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-379
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-380
                   (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-381
                   (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-382
                   (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-383
                   (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-384
                   (APPLY 'STRING-NOT-LESSP '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-385
      (EQUALP 3 (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-386
      (EQUALP NIL (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-387
                   (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-388
                   (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-389
                   (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-390
                   (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-391
                   (APPLY 'STRING-NOT-LESSP '("abbt" "ABBS" :START2 10)))
(test-true TEST-STRING-COMPARISONL-392
      (EQUALP 10 (APPLY 'STRING-NOT-GREATERP '("1234567890" "1234567890"))))
(test-true TEST-STRING-COMPARISONL-393
      (EQUALP 0
              (APPLY 'STRING-NOT-GREATERP
                     '("1234567890" "1234567890" :START2 1))))
(test-true TEST-STRING-COMPARISONL-394
      (EQUALP NIL
              (APPLY 'STRING-NOT-GREATERP
                     '("1234567890" "1234567890" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-395
                   (APPLY 'STRING-NOT-GREATERP
                          '("1234567890" "1234567890" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-396
                   (APPLY 'STRING-NOT-GREATERP
                          '("1234567890" "1234567890" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-397
                   (APPLY 'STRING-NOT-GREATERP
                          '("1234567890" "1234567890" :START2 -5)))
(test-true TEST-STRING-COMPARISONL-398
      (EQUALP NIL
              (APPLY 'STRING-NOT-GREATERP
                     '("1234567890" "1234567890" :START2 10))))
(test-true TEST-STRING-COMPARISONL-399
      (EQUALP NIL (APPLY 'STRING-NOT-GREATERP '("0123450000" "01234"))))
(test-true TEST-STRING-COMPARISONL-400
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("0123450000" "01234" :START2 1))))
(test-true TEST-STRING-COMPARISONL-401
      (EQUALP 7 (APPLY 'STRING-NOT-GREATERP '("0123450000" "01234" :START1 6))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-402
                   (APPLY 'STRING-NOT-GREATERP
                          '("0123450000" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-403
                   (APPLY 'STRING-NOT-GREATERP
                          '("0123450000" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-404
                   (APPLY 'STRING-NOT-GREATERP
                          '("0123450000" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-405
                   (APPLY 'STRING-NOT-GREATERP
                          '("0123450000" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-406
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("01234" "11234"))))
(test-true TEST-STRING-COMPARISONL-407
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-408
                   (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-409
                   (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-410
                   (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-411
                   (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-412
                   (APPLY 'STRING-NOT-GREATERP '("01234" "11234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-413
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("" "01234"))))
(test-true TEST-STRING-COMPARISONL-414
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("" "01234" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-415
                   (APPLY 'STRING-NOT-GREATERP '("" "01234" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-416
                   (APPLY 'STRING-NOT-GREATERP '("" "01234" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-417
                   (APPLY 'STRING-NOT-GREATERP '("" "01234" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-418
                   (APPLY 'STRING-NOT-GREATERP '("" "01234" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-419
                   (APPLY 'STRING-NOT-GREATERP '("" "01234" :START2 10)))
(test-true TEST-STRING-COMPARISONL-420
      (EQUALP NIL (APPLY 'STRING-NOT-GREATERP '("01234" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-421
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-422
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-423
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-424
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-425
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-426
                   (APPLY 'STRING-NOT-GREATERP '("01234" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-427
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("" ""))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-428
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START2 1)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-429
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-430
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-431
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-432
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-433
                   (APPLY 'STRING-NOT-GREATERP '("" "" :START2 10)))
(test-true TEST-STRING-COMPARISONL-434
      (EQUALP 3 (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs"))))
(test-true TEST-STRING-COMPARISONL-435
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-436
                   (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-437
                   (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-438
                   (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-439
                   (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-440
                   (APPLY 'STRING-NOT-GREATERP '("ABBA" "abbs" :START2 10)))
(test-true TEST-STRING-COMPARISONL-441
      (EQUALP NIL (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS"))))
(test-true TEST-STRING-COMPARISONL-442
      (EQUALP 0 (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START2 1))))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-443
                   (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START1 6)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-444
                   (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START1 20)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-445
                   (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START1 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-446
                   (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START2 -5)))
(TEST-EXPECT-ERROR TEST-STRING-COMPARISONL-447
                   (APPLY 'STRING-NOT-GREATERP '("abbt" "ABBS" :START2 10)))
